home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 209
- Top = 105
- Width = 517
- Height = 421
- Caption = 'SMTP Component Example'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 120
- TextHeight = 16
- object Label1: TLabel
- Left = 10
- Top = 64
- Width = 51
- Height = 16
- Caption = 'Subject :'
- end
- object Label2: TLabel
- Left = 20
- Top = 94
- Width = 23
- Height = 16
- Caption = 'To :'
- end
- object Label3: TLabel
- Left = 15
- Top = 207
- Width = 37
- Height = 16
- Caption = 'From :'
- end
- object Label7: TLabel
- Left = 10
- Top = 241
- Width = 43
- Height = 16
- Caption = 'Name :'
- end
- object Edit1: TEdit
- Left = 69
- Top = 59
- Width = 257
- Height = 24
- TabOrder = 0
- Text = '>>AHM Mail Test'
- end
- object Edit2: TEdit
- Left = 69
- Top = 89
- Width = 257
- Height = 24
- TabOrder = 1
- Text = 'To@EMail.here'
- end
- object Memo1: TMemo
- Left = 69
- Top = 128
- Width = 390
- Height = 70
- Lines.Strings = (
- 'Testing the mail system ...')
- TabOrder = 2
- end
- object Edit3: TEdit
- Left = 69
- Top = 202
- Width = 149
- Height = 24
- TabOrder = 3
- Text = 'Your@EMail.Here'
- end
- object Edit4: TEdit
- Left = 69
- Top = 236
- Width = 395
- Height = 24
- TabOrder = 4
- Text = 'Your name here ...'
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 509
- Height = 55
- Align = alTop
- TabOrder = 5
- object Label4: TLabel
- Left = 15
- Top = 20
- Width = 75
- Height = 16
- Caption = 'SMTP Host :'
- end
- object Edit5: TEdit
- Left = 98
- Top = 15
- Width = 149
- Height = 24
- TabOrder = 0
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 371
- Width = 509
- Height = 23
- Panels = <>
- SimplePanel = True
- end
- object Button1: TButton
- Left = 10
- Top = 300
- Width = 92
- Height = 31
- Caption = '&Send'
- TabOrder = 7
- OnClick = Button1Click
- end
- object AHMSMTPMail1: TAHMSMTPMail
- Messages = <>
- ProgressStep = 1
- Port = '25'
- DateTimeFormat = 'dd MMMM yyyy, hh:mm:ss AMPM'
- OnConnect = AHMSMTPMail1Connect
- OnDisconnect = AHMSMTPMail1Disconnect
- OnError = AHMSMTPMail1Error
- OnBeforeSend = AHMSMTPMail1BeforeSend
- OnAfterSend = AHMSMTPMail1AfterSend
- OnSendProgress = AHMSMTPMail1SendProgress
- Left = 108
- Top = 224
- end
- end
-